home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0905.lha / Action / Install Action < prev    next >
Text File  |  1993-08-26  |  2KB  |  76 lines
  1. (if (> @user-level 0)   ; print a little welcome
  2.     (message "This utility installs Action on your harddisk.\n"
  3.              "Since you are an advanced user, you will "
  4.              "be asked a place to copy the Action Program to.\n\n"
  5.              "WhatIs.library will be installes in LIBS:\n"
  6.              "The sample FileTypes file for WhatIs.library will"
  7.              " be installed in your S: directory\n"
  8.              "The sample Action definitions will be installed in your"
  9.              " ENVARC: and ENV: directory\n")
  10. )
  11.  
  12. (set @default-dest
  13.     (askdir (prompt "Select a directory to copy Action to")
  14.             (help @askdir-help)
  15.             (default "SYS:Utilities/")
  16.             (newpath)
  17.     )
  18. )
  19.  
  20. (protect "Action" "+p")
  21.  
  22. (copyfiles
  23.     (source "Action")
  24.     (dest   @default-dest)
  25.     (infos)
  26. )
  27.  
  28. (copylib
  29.     (source "Libs/WhatIs.library")
  30.     (dest "LIBS:")
  31. )
  32.  
  33. (if (exists "ENVARC:Action")
  34.     (    (if (NOT (exists "ENVARC:Action/Action.View"))
  35.         (    (copyfiles
  36.             (source "ENV/Action/Action.View")
  37.             (dest "ENVARC:Action")
  38.         )
  39.             (copyfiles
  40.             (source "ENV/Action/Action.View")
  41.             (dest "ENV:Action")
  42.         )
  43.         )
  44.     )
  45.         (if (NOT (exists "ENVARC:Action/Action.View"))
  46.         (    (copyfiles
  47.             (source "ENV/Action/Action.View")
  48.             (dest "ENVARC:Action")
  49.         )
  50.             (copyfiles
  51.             (source "ENV/Action/Action.View")
  52.             (dest "ENV:Action")
  53.         )
  54.         )
  55.     )
  56.     )
  57.     (    (copyfiles
  58.         (all)
  59.             (source "ENV/Action")
  60.         (dest "ENV:Action")
  61.     )
  62.     (copyfiles
  63.         (all)
  64.             (source "ENV/Action")
  65.         (dest "ENVARC:Action")
  66.     )
  67.     )
  68. )
  69.  
  70. (if (NOT (exists "S:FileTypes"))
  71.     (copyfiles
  72.         (source "S/FileTypes")
  73.         (dest   "S:")
  74.     )
  75. )
  76.